-- card: 5767 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Mail Functions
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    repeat 3
      put recvUpTo(port,return,2,false,false) into newIn
    end repeat
  end if
end idle

on opencard
  global lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=152 top=126 right=154 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Post a message
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"p"&return
  ask "Who do you want this message to go to?" with "FirstName LastName"
  if it is empty then
    sendSPort port,false,return
  else
    sendSPort port,false,it&return
    wait 10
    ask "What will be the title of your message?"
    repeat until it<>empty
      ask "What will be the title of your message?"
    end repeat
    sendSPort port,false,it&return
    go to card "Message writing"
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=84 top=189 right=211 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Forward
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"f"&return
  put recvUpTo(port,return,1,false,false) into newIn
  ask "How do you wish to read (Format #-#,#,#-)?"
  repeat until it<>empty
    ask "How do you wish to read (Format #-#,#,#-)?"
  end repeat
  sendSPort port,false,it&return
  repeat 3
    idle
  end repeat
  push card
  go card "Scan"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=293 top=189 right=211 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Backwards
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"r"&return
  put recvUpTo(port,return,1,false,false) into newIn
  ask "How do you wish to read (Format #-#,#,#-)?"
  repeat until it<>empty
    ask "How do you wish to read (Format #-#,#,#-)?"
  end repeat
  sendSPort port,false,it&return
  repeat 3
    idle
  end repeat
  push card
  go card "Scan"
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=136 top=167 right=188 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 16640
-- line height: 16
-- part name: 


-- part 5 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=122 top=82 right=105 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 16640
-- line height: 24
-- part name: Section


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=189 top=189 right=211 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mousedown
  global port
  put the mouseloc into myPlace
  put item 1 of myPlace into horiz
  put item 2 of myPlace - 10 into vert
  get PopUpMenu("All;Go back days;Quit;Use Search Strings;Start", 3, vert, horiz)
  put recvUpTo(port,return,1,false,false) into newIn
  if it = 1 then
    sendSPort port,false,"s"&return
    wait 10
    sendSPort port,false,"a"&return
    repeat 3
      idle
    end repeat
    push card
    go card "Scan"
  else if it = 2 then
    sendSPort port,false,"s"&return
    wait 10
    sendSPort port,false,"g"&return
    wait 10
    push card
    set lockscreen to true
    go card "Main Menu"
    get card field 1 of card "Main Menu"
    put it into junk
    go card "days"
    put junk into card field 1 of card "Days"
    set lockscreen to false
  else if it = 3 then pass mousedown
  else if it = 4 then
    sendSPort port,false,"s"&return
    wait 10
    push card
    sendSPort port,false,"u"&return
    wait 10
    answer "Search for…" with "Author" or "Message Title" or "Receiver"
    if it = "Author" then sendsPort port,false,"a"&return
    else if it = "Message title" then sendSPort port,false,"m"&return
    else if it = "Receiver" then sendSPort port,false,"r"&return
    ask "Search "&it&" for what string?"
    if it<> empty then
      sendSPort port,false,it&return
      sendSPort port,false,"s"&return
      repeat 3
        idle
      end repeat

      go card "Scan"
    end if
  else if it= 5 then
    sendSPort port,false,"s"&return
    wait 10
    push card
    SendSPort port,false,"s"&return
    repeat 3
      idle
    end repeat
    go card "Scan"
  end if
end mousedown



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=182 top=265 right=295 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete a message
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"d"&return
  put recvUpTo(port,return,1,false,false) into newIn
  ask "What to delete (Format #-#,#,#-)?"
  repeat until it<>empty
    ask "What to delete (Format #-#,#,#-)?"
  end repeat
  sendSPort port,false,it&return
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=281 right=303 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"e"&return
  put empty into card field "Section"
  go card "Main Menu"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=305 right=327 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log off
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"g"&return
  answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  put empty into card field "Section"
  if it="Yes, bye" then
    sendsPort port,false,"y"&return
    go card 1
  else if it="NO WAIT!!" then
    sendSPort port,false,"n"&return
    go card "Main Menu"
  end if

end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=257 right=279 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EMail Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"-"&return
  put empty into card field "Section"
  go card "EMail Menu"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  if card field "section" contains "PD" then show card field "PD"
  else if card field "section" contains "Hard" then show card field "Hard"
  else if card field "section" contains "Soft" then show card field "Soft"
  else if card field "section" contains "Private" then show card field "Private"
  else if card field "section" contains "Open" then show card field "Open"
end mouseUp



-- part 13 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=135 right=190 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: PD
----- HyperTalk script -----
on mouseup
  hide card field "PD"
end mouseup


-- part 14 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=135 right=190 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Hard
----- HyperTalk script -----
on mouseup
  hide card field "hard"
end mouseup


-- part 15 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=135 right=190 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Private
----- HyperTalk script -----
on mouseup
  hide card field "Private"
end mouseup


-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=135 right=190 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Soft
----- HyperTalk script -----
on mouseup
  hide card field "Soft"
end mouseup


-- part 17 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=88 top=135 right=190 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Open
----- HyperTalk script -----
on mouseup
  hide card field "Open"
end mouseup


-- part contents for background part 1
----- text -----





Tue, Jul 5, 1988, 5:46 PM
Sun, Jul 10, 1988, 2:38 AM

-- part contents for card part 4
----- text -----
Read messages:

-- part contents for background part 4
----- text -----
Thu, Sep 22, 1988

-- part contents for background part 5
----- text -----
8:59 PM

-- part contents for card part 13
----- text -----
Post requests for disk from the NCMC's PD library (Catalog available in the file area).

Post all your messages to "All".



-- part contents for card part 14
----- text -----
This is the area where you can post messages having to do with computer hardware.  Place any questions or comments.  This is a good place to take advantage of other people's know-how about specific pieces of equipment.

-- part contents for card part 15
----- text -----
This is the section for private coversations. Make sure you have your party's name (as he/she is listed on here) correct.

My address is "System Operator"


-- part contents for card part 16
----- text -----
Here is the area to put all your comments and questions about Mac software.  Rave about your favourite piece or complain about the worst. 
Here is a place to get good hints!

-- part contents for card part 17
----- text -----
An open forum for you to place your feelings about anything and everything. The only rule we have is: Keep it clean!



-- part contents for background part 3
----- text -----
Thu, Sep 22, 1988, 9:08 AM